home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / autostart c64 pl (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  92 lines
  1. 1 REM *********************************
  2. 2 REM *********************************
  3. 3 REM **     AUTOSTART C64  PLUS     **
  4. 4 REM **-----------------------------**
  5. 5 REM **  WRITTEN 1984 BY JAN KUSCH  **
  6. 6 REM **     (C) BY SPS-SOFTWARE     **
  7. 7 REM *********************************
  8. 8 REM *********************************
  9. 9 REM
  10. 100 POKE643,PEEK(45):POKE55,PEEK(45):POKE644,PEEK(46)+3:POKE56,PEEK(46)+3:CLR
  11. 101 PRINT"    [147]  *  *  *  [193]UTOSTART [195]64 [208]LUS  *  *  *  "
  12. 102 C$="                                      ":O$=CHR$(0)
  13. 103 PRINT"[196]ATACHECKING[157][157][157][157][157][157][157][157][157][157][157][157]";:             GOSUB142
  14. 104 RESTORE:OPEN15,8,15:FORX=0TO112:READA:POKE828+X,A:NEXT
  15. 105 A$="[197]NTER [211]OURCEFILENAME":GOSUB133:SF$=T$
  16. 106 A$="[197]NTER [212]ARGETFILENAME":GOSUB133:TF$=T$
  17. 107 PRINT"":A$="[194]ASICPROGRAMM ":GOSUB138:BA$=T$
  18. 108 IFBA$="J"THENPRINT""C$:PRINTC$:SA=42926:NF$="N":GOTO111
  19. 109 PRINT:A$="[211]TARTADRESSE ":GOSUB140:SA=T:IFSA>65535THENPRINT"[145][145][145]":GOTO109
  20. 110 A$="[206]EWFLAG":GOSUB138:NF$=T$
  21. 111 PRINT:A$="[210]ESTOREPROTECT":GOSUB138:RS$=T$
  22. 112 A$="[211]TOPPROTECT   ":GOSUB138:SS$=T$
  23. 113 PRINT"[195]ODEWORD            ";:CW$="":INPUTCW$
  24. 114 IFLEN(CW$)>10THENPRINT"[145][145]":GOTO113
  25. 115 PRINT"":A$="[197]NTERY CORRECT":GOSUB138:IFT$="N"THENPRINT"":GOTO105
  26. 116 PRINT:FORX=1TO40:PRINT"-";:NEXT:INPUT"[201]NSERT [211]OURCE-[196]ISK";T$
  27. 117 PRINT"[145]"C$:PRINT"[145][204]OADING:";:OPEN1,8,2,SF$+",P,R":GET#1,L1$,L2$
  28. 118 GOSUB135:SYS831:GOSUB135:CLOSE1:INPUT"[146][201]NSERT [212]ARGET-[196]ISK";T$
  29. 119 PRINT"[145]"C$:PRINT"[145][211]AVING :";:OPEN1,8,2,"@:"+TF$+",P,W":GOSUB135
  30. 120 FORX=0TO257:READA:PRINT#1,CHR$(A);:NEXT
  31. 121 S1=INT(SA/256):S2=SA-S1*256:PRINT#1,CHR$(S2);CHR$(S1);
  32. 122 A0=ASC(L1$+O$)+ASC(L2$+O$)*256:A1=PEEK(251)+PEEK(252)*256
  33. 123 A2=1+PEEK(643)+PEEK(644)*256:A3=(A1-A2)+A0:P1=INT(A3/256):P2=A3-P1*256
  34. 124 PRINT#1,CHR$(P2);CHR$(P1);
  35. 125 A=237:IFRS$="J"THENA=225
  36. 126 PRINT#1,CHR$(A);:A=49:IFSS$="J"THENA=52
  37. 127 PRINT#1,CHR$(A);:A=0:IFNF$="J"THENA=1
  38. 128 PRINT#1,CHR$(A);:IFCW$=""THENPRINT#1,CHR$(0)"1234567890";:GOTO130
  39. 129 PRINT#1,CW$CHR$(0);:IFLEN(CW$)<10THENPRINT#1,LEFT$(C$,10-LEN(CW$));
  40. 130 SYS828:GOSUB135:CLOSE1:PRINT:A$="[210]ESTART [208]ROGRAMM":GOSUB138:CLOSE15
  41. 131 IFT$="J"THENRUN
  42. 132 SYS64738
  43. 133 T$="":PRINTA$;:INPUTT$:IFT$=""ORLEN(T$)>16THENPRINT"[145][145]":GOTO133
  44. 134 RETURN
  45. 135 INPUT#15,A,B$,C,D:PRINT""A;B$;C;D,
  46. 136 IFA<2THENRETURN
  47. 137 FORX=1TO15:CLOSE1:NEXT:PRINT:PRINT"?[196]ISK-[197]RROR";:FORX=1TO5000:NEXT:RUN
  48. 138 T$="":PRINTA$" (J/N)";:INPUTT$:IFT$<>"J"ANDT$<>"N"THENPRINT"[145][145]":GOTO138
  49. 139 RETURN
  50. 140 T$="":PRINTA$;:INPUTT$:T=VAL(T$):IFT$=""ORT=0THENPRINT"[145][145]":GOTO140
  51. 141 RETURN
  52. 142 P1=15862:S=0:FORX=0TO112:READA:S=S+A:NEXT:IFS<>P1THEN144
  53. 143 P2=32966:P=1:S=0:FORX=0TO257:READA:S=S+A:NEXT:IFS=P2THENRETURN
  54. 144 PRINT"?DATAERROR"P+1,"PRUEFSUMME:"S
  55. 145 DATA 76, 121, 3, 173, 131, 2, 24, 105, 1
  56. 146 DATA 133, 251, 173, 132, 2, 105, 0, 133, 252, 162, 1
  57. 147 DATA 32, 198, 255, 169, 253, 37, 144, 133, 144, 32, 225
  58. 148 DATA 255, 32, 207, 255, 160, 48, 120, 132, 1, 160, 0
  59. 149 DATA 145, 251, 160, 55, 132, 1, 88, 36, 144, 112, 57
  60. 150 DATA 230, 251, 208, 222, 230, 252, 208, 218, 162, 1, 32
  61. 151 DATA 201, 255, 160, 48, 120, 132, 1, 160, 0, 177, 251
  62. 152 DATA 160, 55, 132, 1, 88, 73, 255, 32, 210, 255, 32
  63. 153 DATA 225, 255, 165, 251, 208, 2, 198, 252, 198, 251, 165
  64. 154 DATA 251, 205, 131, 2, 208, 219, 165, 252, 205, 132, 2
  65. 155 DATA 208, 212, 76, 204, 255
  66. 156 REM
  67. 157 REM
  68. 158 DATA 168, 2, 238, 32, 208, 76, 168, 2, 174, 170, 3
  69. 159 DATA 134, 174, 172, 171, 3, 132, 175, 134, 45, 132, 46
  70. 160 DATA 32, 112, 3, 144, 251, 32, 239, 237, 32, 66, 246
  71. 161 DATA 169, 0, 141, 6, 128, 32, 21, 253, 32, 83, 228
  72. 162 DATA 173, 173, 3, 141, 20, 3, 173, 172, 3, 141, 40
  73. 163 DATA 3, 173, 174, 3, 240, 3, 32, 68, 166, 169, 0
  74. 164 DATA 76, 152, 3, 3, 255, 165, 174, 201, 186, 240, 65
  75. 165 DATA 96, 83, 80, 83, 32, 83, 79, 70, 84, 87, 65
  76. 166 DATA 82, 69, 139, 227, 131, 164, 124, 165, 26, 167, 228
  77. 167 DATA 167, 134, 174, 1, 2, 3, 50, 76, 72, 178, 0
  78. 168 DATA 49, 234, 102, 254, 168, 2, 74, 243, 145, 242, 14
  79. 169 DATA 242, 80, 242, 51, 243, 87, 241, 202, 241, 237, 2
  80. 170 DATA 62, 241, 47, 243, 102, 254, 165, 244, 237, 245, 162
  81. 171 DATA 10, 189, 143, 3, 157, 0, 128, 202, 208, 247, 169
  82. 172 DATA 0, 133, 153, 170, 134, 198, 134, 251, 189, 175, 3
  83. 173 DATA 240, 17, 32, 62, 241, 240, 251, 166, 251, 221, 175
  84. 174 DATA 3, 208, 230, 232, 230, 251, 208, 234, 170, 160, 245
  85. 175 DATA 238, 32, 208, 238, 33, 208, 232, 208, 247, 200, 208
  86. 176 DATA 244, 76, 174, 2, 169, 253, 37, 144, 133, 144, 32
  87. 177 DATA 19, 238, 73, 255, 160, 0, 145, 174, 165, 174, 208
  88. 178 DATA 2, 198, 175, 198, 174, 36, 144, 80, 2, 56, 36
  89. 179 DATA 24, 96, 168, 2, 168, 2, 195, 194, 205, 56, 48
  90. 180 DATA 141, 0, 8, 32, 113, 168, 32, 51, 165, 32, 167
  91. 181 DATA 3, 76, 84, 168, 76
  92.